home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aai.d64 / saveshape.proc < prev    next >
Text File  |  2007-02-28  |  432b  |  20 lines
  1. 9000 //
  2. 9010 PROC SAVESHAPE(SPR,FILENAME$) CLOSED
  3. 9020  Z:=ZONE
  4. 9030  ZONE 0
  5. 9040  IF SPR>=0 AND SPR<64 THEN
  6. 9050   DIM DS$ OF 2
  7. 9060   OPEN FILE 81,FILENAME$,WRITE
  8. 9070   DS$:=STATUS$
  9. 9080   IF DS$="00" THEN
  10. 9090    BLOCK:=49152+SPR*64
  11. 9100    FOR I#:=0 TO 63 DO
  12. 9110     BYTE:=PEEK(BLOCK+I#)
  13. 9120     PRINT FILE 81: CHR$(BYTE),
  14. 9130    ENDFOR I#
  15. 9140   ENDIF 
  16. 9150   CLOSE FILE 81
  17. 9160  ENDIF 
  18. 9170  ZONE Z
  19. 9180 ENDPROC SAVESHAPE
  20.